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PREPACE 


MERLIN is a "mini" operating system for computer systems based 
on the Motorola MC68000 microprocessor. 

The MERLIN Operating System Documentation is arranged into two 
distinct books. 


The User's Guide is a "concepts and facilities" manual which 
explains the core ideas of MERLIN - its command interpreter, file 
system, and the utility commands that provide a means to get 
started on MERLIN. The User's Guide also contains information 
about the software packages and utilities that run under MERLIN. 
There are descriptions of how to run the compilers, the linker 
and librarian, and a summary of ED - the line-oriented editor. 


The Internals Guide- is a MERLIN Internal Interface Guide for 
programmers wishing to write software to run under MERLIN - it 
covers topics such as file structures, memory layout, device 
drivers, and other information about MERLIN. 


/ There are other manuals in addition to these two. The 
additional, manuals are whole, self-contained manuals such as the 
Pascal and FORTRAN reference manuals. These are separate because 
(a) they are- large, and placing them in the User's Guide would 
make that manual impossibly large, and (b) because they are 
separately priced-products. 



Introduction 


Chapter 1 


Chapter 1 
Introduction 


MERLIN is a basic executive program for 68000-based 

microcomputer systems. Its main purpose is to provide an 

operating environment in which users can develop and run software 

applications quickly and easily. MERLIN'S main features include: 

i 

. Single-user system - the user has the full power and 
responsiveness of the MC68000 system available with no 
competition for resources with other users. 

. Fixed and demountable volumes (devices). 

• Two level file structure. 

. UNIX-like- command language with re-direction of input and 
output. 

• Automatic' startup command file for initialization. 

. The shell or command interpreter is simply a system command - 
users can develop their own shells to suit their specific 
needs. 

• Assignable device drivers - new device drivers can be 
incorporated without the need for system reconfiguration. 


Users view MERLIN as composed of several distinct parts: 

• the file system provides a way to store data in named 
collections called files and a way to create, examine, remove, 
copy, and otherwise manipulate such files. 

. the command interpreter , known as "the shell", provides the 
basic means of telling MERLIN what things it should do. 

. the programming languages provide the means to write new 
software applications. MERLIN supports Pascal, FORTRAN, an 
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Chapter 2 

General Information 


This Chapter supplies general information about data structures 
and the means by which software makes MERLIN system calls. 
Topics covered in this Chapter are: 

• a description of the units that MERLIN supports. 

• data representation. 

. various data structures such as the system communication area, 
memory layout* and program environments 


2,1 Units 


MERLIN, as stated previously, looks somewhat like the UCSD 
Pascal system. MERLIN knows about several units , that is, 
external devices to or from which data may be transferred. 

Generally speaking, it is only neccessary to be concerned with 
units when using unit input-output - the software layer below 
that of file input-output. The unit numbers that MERLIN 
currently deals with are as follows: 


Unjt Number and Name Description 

0 - /null is a "null" device. It acts as an infinite sink 

or "black hole" when it is written to; when is 
is read from, an end-of-file condition is 
returned. 

1 - /console is the console, that is, the -keyboard and 

screen, with echo. 
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Characters , or bytes , occupy 16 bits if they are not packed. 
Packed characters occupy a byte and are aligned on a byte 
boundary. 

Words occupy two bytes, or 16 bits. Words are the Pascal 

integer data types. Words are always aligned on a two byte 

boundary. Words represent. signed integers in the range 

-32768 .. +32767. 

Long Words occupy four bytes, or 32 bits. Long words are 

always aligned on a two byte boundary. Long words are accessible 
in Pascal by the longint data type. Long words represent signed 
integers in the range -2,147,483,648 .. +2,147,483,647. Long 

words are also used to store memory addresses and pointers in 
Pascal. 


2.2.2 Boolean Data Type 

The Pascal implementation has a Boolean data type. A Boolean 
is always represented in a single byte quantity. A value of 0 
(zero) represents false. A value of 1 (one) represents true. No 
other values are valid.. When a Boolean value is not an element 
of a packed data structure, a full byte of storage is used to 
facilitate access.- 


2'.2.3 The NIL Pointer* 

As mentioned above, the Pascal implementation uses a long word 
or 32-bit quantity to represent a pointer. One of the important 
pointers is the nil pointer which points to no data element (for 
example, used to indicate the end of a list). In this 
implementation, nil is represented by the value zero (0). 



2.2.4 The String Data Type 

Pascal has a dynamic sized string data type similar to that of 
the OCSD Pascal, system. A string - is a sequence of bytes in 
memory, with the. first byte in the string containing the length 
of the string (not including the first byte). This means that 
the maximum string length is 255 bytes. A string value must be 
aligned on a word boundary. 


2.2.5 Packed Array of Character 
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2.3 The System Communication Area 


MERLIN maintains a System Communication Area in RAM. The System 
Communication Area contains global information that is important 
to running programs. ! Two- of. the important- items are the 
"IORESULT" , which is the return code from input-output 

operations, and the start address of the system call jump 
vector. 

The System Communication Area base address is contained in the 
long word found in absolute location $180. The System 

Communication Area layout is described here. 

IORESULT is a word value which contains a result code 

after completion of any input-output process. 

PROCESS NUMBER is a word value, which is the current process 

number. The initial shell- is assigned process 
number 0. Each subsequent process receives an 
incremented process number. 

FREE HEAP is a long word pointer to the start of the free 

memory available for storage, allocation. 

SYSTEM CALL VECTOR 

is a long word pointer to the start of the 
system call vector. The system call vector is a 
table of jump addresses to the system routines. 
This is described in more detail later on. 

is a long word pointer to the initial shell's 
standard output file. SYSIN and SYSOUT are used 
for court of last resort error messages when the 
Pascal system runs into trouble, for example, 
when' it runs short of allocatable storage. 

is a long word pointer to the initial shell's 
standard input file. 

SYSTEM DEVICE TABLE 

is a long word pointer to the device table. 

DIRECTORY NAME is a long word pointer to the currently "logged" 

directory name. 


SYSOUT 


SYSIN 
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Figure 2-1 

System Communication Area Layout 


2.4 The System Call Vector 

All MERLIN system calls are, at this time, made by reference 
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2.4.1 Calling a System Routine 

To call a system routine, the appropriate parameters must be 
pushed onto the stack. The last thing pushed onto the stack 
should be the return address (normally pushed via a JSR 
instruction). The address of a system routine is extracted from 
the system-call vector, and a JSR to that address is then 
executed. 

The code fragment below illustrates a way to call a system 
routine. In this specific example, the routine FCLOSE is called 
to close a file. 


PEA 

FBDFF 

CLR.W 

“(SP) 

MOVE.L 

$180.W,AO 

MOVE.L 

8 (AO) ,A0 

MOVE.L 

32(AO),AO 

JSR 

(AO) 


... Return Address ... 


Push address of FIB. 

Close type :=* NORMAL. 

AO :» System Communication Area address. 
AO :■ System Call Vector address. 

AO :■ Address of FCLOSE entry. 

Call the FCLOSE routine. 

FCLOSE returns to here 


2.5 File Information Block.(FIBf 


Access to files requires passing the address of a File 
Information Block, abbreviated to FIB. A FIB contains all 
information about a file, its type, buffering and so on. 

Before a file can be opened, an FIB must be allocated. The 
total number of bytes to be allocated depends on whether using 
Block input-output is being used. If Block input-output/s being 
used, the FIB is 64 bytes long. In this case, the user must also 
allocate a buffer for the block. If Block input-output is not 
being used, in other words the file is a text file or an ISO file 
of type, the FIB is 576 bytes long, plus the number of bytes in a 
record. 

WINDOW is a long word pointer to the file 'window' - 

the area at the end of the FIB that holds the 
current record. 

END OF LINE is a Boolean that is true if an end-of-line was 

encountered in the file, false otherwise. 
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SOFT BUFFER 


NEXT BYTE 

MAXIMUM BYTE 


occupies 26 bytes in the FIB. 

is a Boolean quantity that when true, indicates 
that the file buffer for this file is actually a 
part of this structure, instead of separately 
allocated as in the case of a blocked file. 
When SOFT BUFFER is true, the following items 
are part of the File Information Block. 

is a word quantity that is the next byte 
position to be read or written in the buffer. 

is a word quantity that is the number of the 
last byte in the buffer. This is used when 
reading a file that has a partial last block or 
when writing any file. 


BUFFER CHANGED is a Boolean quantity that when true, indicates 

that the file buffer in this FIB has been 
changed and therefore must be eventually written 
back to the disk. 


BUFFER is a 512 byte array - the size of one logical 

disk block. 

.RECORD WINDOW is an array.of bytes sufficiently large to hold, 

one record from the file. If that record is an 
odd number, of- bytes, in. size, the buffer- is 
increased to be.an even number of bytes long. 

The diagram on the next page is a graphic layout of a File 
Information Block. 


MERLIN 1.0 Interface Guide 


Page 13 



Chapter 2 


General Information 


2.6 Device Directory 


A directory resides on a blocked device. The device directory 
contains information about the volume and the files that reside 
on that volume. A complete directory is an array of 73 directory 
entries, the first entry being the header record which describes 
the specific volume. The other 72 entries are for the files that 
reside on the device. The elements in a directory entry are 
described here: 


FIRST BLOCK 


NEXT BLOCK 


FILE KIND 


is a word quantity which is the number of the 
first avaliable block on this device. This 
entry is normally zero (0) . 

is a word quantity which is the number of the 
next available block after this entry. For the 
volume_header entry, this is normally 6. 

is a four-bit quantity which is the kind of file 
that this entry describes. The next two 
Subsections describe the different layouts of a 
directory entry depending on the file kind 
field. The values of file kind that are of 
interest are: 

0 a directory header entry. 

2 a code file. 

3 a text file. 

5 a data file. 

8 is also, a directory header entry. 

the file kind entry is followed by 12 bits of 
unused space to fill up the word. 


2.6.1 Directory Entry for a Header Record 

If the FILE KIND field in the directory entry indicates that 
this entry is a directory header record, the following fields are 
valid: 
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i / 
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to 

a file 
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Figure. 2-3 

Layout of a Directory Entry 


CC 
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8 


this unit can perform a UNITBUSY 
operation. 


16 this unit can perform a UNITSTATUS 

operation. 


ADDRESS OF DRIVER 

is. a long word pointer to the driver code for 
this device. 

BLOCKED a Boolean which when true, indicates that this 

is a blocked device. 


MOUNTED a Boolean which when true, indicates that this 

device is mounted (a driver is assigned to it) . 

DEVICE NAME an eight-byte field which is the name of the 

device. The first byte is the length of the 
string; the remaining seven bytes are the actual 
name of the device. 

DEVICE SIZE is a word quantity which is the number of 

512-byte blocks on this device. For an 
unblocked, device* it is set to- the maximum 
integer, 32767. 


The layout of each entry ijx the device table is as shown 
below. 


Offset +0 | 
+ 

+2 | 
4 

+6 | 
4 

+3 I 


Valid Operation Bits 


Pointer to Driver Routine | 

BLOCKED | MOUNTED | 

Device Name occupies 
| eight bytes 

+16. | Device Size | 


Figure 2-5 

Individual Device Table Entries 
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13 File Not Open - Attempt to operate on a closed 

file. 

14 Bad Format - Non-numeric data read in an Integer 

or Real read operation. 

15 Ring Buffer Overflow. 

16 Write Protect - attempt to write to a write 

protected device. 

17 Seek Error - Seek on a file that is not a text 

file or a blocked file. Also seek to a negative 
record number. 

64 Device Error of unknown origin. 
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2.10 Register Usage in MERLIN 


Registers A4 .. A7 are reserved for system use as follows; 

A4 holds the address of the overlay jump table. 

A5 holds the address of the user global data. 

A6 holds the base address of the local stack 

frame. A6 is undefined for a procedure at the 
outermost (main) level. 

A7 holds the current stack top address. 

All other registers are CLOBBERED when system calls are made. 


2.11 Environment of A Running Program 


The diagram below shows the run-time environment pointed to by 
register AS. 


(AS) 


(A5)+2Q 
(A5J+16 
(A5) +12 
(A5)+8 
(A5)+4 


ARGC (argument count) | 

- K 

ARGV (point to Arguments) | 

Pointer to Standard Output | 

Pointer to Standard Input | 

Return Address | 

Old Copy of AS | 

Figure 2-7 

Environment of a Running Program 
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Chapter 3 
System Calls 


This Chapter provides a blow-by-blow description of the system 
call interfaces. In all cases, parameters are described in the 
order in which they must be pushed onto the stack. The last 
thing pushed onto the stack, in all cases, is the return 
address. The discussions below cover the following topics: 

. Unit input-output. 

. File input-output. 

• Memory Management. 


3.1 Unit input-output 


Unit input-output is at the lowest level of the system 
input-output facilities. Unit input-output references the 
physical devices in terms of physical blocks (on a disk). There 
are five system interfaces for unit input-output, . namely 
UNITREAD, UNITWRITE, UNITBUSY, UNITCLEAR and UNITSTATUS. They are 
described in the subsections that follow. 


3.1.1 UNITREAD and UNITWRITE - Direct Unit Data Transfer 

UNITREAD and UNITWRITE are used to transfer information between 
a memory buffer and a specific unit. Parameters are: 

unit number a word quantity representing the physical unit 

number involved in the transfer. 

buffer address a long word pointer to the memory buffer. 

byte count a word quantity representing the number of bytes 
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control a word quantity representing a control parameter 

whose meaning is agreed upon between UNITSTATUS 
and any of its callers. 


3.2 File input-output 


This Section describes those facilities that deal with files. 
In order to use the File input-output facilities, it is 
neccessary to allocate a File Information Block (FIB). See 
Chapter 2 for the details of an FIB. If Blocked input-output is 
being used, a buffer must also be allocated for the data transfer 
operations. The buffer must be big enough to hold the number of 
blocks to be transferred at any time. 


3.2.1 FINIT - Initialize a File 

FINIT sets up a File Information Block when the file is 

opened. The Open File function (FOPEN) usually calls upon FINIT 

to do this. User programs do not normally need to call FINIT. 
Parameters are: 

Pointer to FIB a long word pointer to a File Information Block. 
bytes in a record 

a word quantity. There are special meanings 
attached to this parameter if it is zero or 

negative. If positive, it represents the number 
of bytes per record in the file. If zero or 

negative, it has the following meanings: 

0 this file is an interactive file - 

it is talking to a device such as a 
terminal. An interactive file is to 
all intents and purposes the same- as 
a text file. There- are some minor 
differences in the way that 

end-of-line is handled. 

-1 this file is a DCSD Pascal 

compatible file. It is normally 

declared as just file; (an untyped 
file) , as opposed to a file of 
some-type;. With this file 

organization, the user must provide 
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Mode a word quantity indicating the disposition of 

the file after it is closed. The modes are: 

0 normal - if the file is an old file 

- it existed prior to this program 
run, it is saved (retained) in the 
file system. If the file is a new 
file - created during this program 
run, it is deleted or purged from 
the file system. 

1 lock - makes a file permanent in the 
file system, regardless of any 
conditions mentioned in case (0) 
above. 

2 purge - purges or removes this file 
from the file system when the file 
is closed. 


3.2.5 READCHAR - Read a Character from a File 

READCHAR reads a single, character from a file. READCHAR only 
applies to interactive (mode 0) , or text (mode -2) files. 
Parameters are: 

Pointer to FIB a-long word pointer to a File Information Block. 
READCHAR returns a single byte value on the top of the stack. 


3.2.6 WRITECHAR - Write a Character to a File 

WRITECHAR writes a character to a file. There is a field width 
specification which can cause space filling. WRITECHAR only 
applies to interactive (mode 0), or text (mode -2) files. 
Parameters are: 

Pointer to FIB a long, word pointer to a File. Information Block. 
Character to be written is a byte . 

Size a word quantity representing a field width. If 

size is greater than one, the character is 
preceded with size-1 spaces. 


3.2.7 SEEK - Position to a Specific Record in a File 
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3.3 Memory Management 


This section describes those MERLIN system calls dealing with 
dynamic allocation and de-allocation of memory. Memory 
Allocation is done on a heap . The heap grows upward from the end 
of the user program. The user stack grows downward from the top 
of memory. When the two collide, there is mutual annihilation. 


3.3.1 NEW - Allocate Storage 

NEW allocates storage on the heap. Parameters are: 

Pointer to Storage 

a long word pointer which points to another long 
word pointer. The second pointer receives the 
start address of the allocated storage, in the 
event that there is enough storage to allocate. 
Note that NEW always returns a pointer that is 
aligned to a word boundary. 

Byte Count a word quantity representing the number of bytes 

to be allocated. Note that if an odd number of 
bytes are requested, NEW rounds up to an even 
(word) number and allocates that number of 
bytes. 


3.3.2 DISPOSE - De-Allocate Storage 

DISPOSE currently acts as a no-op. It does not actually 
dispose of de-allocate storage as in some Pascal 

implementations. DISPOSE does, however, return a NIL pointer to 
the caller. Parameters are: 

Pointer to Storage 

a long word pointer that itself points to 
another long word pointer. This second pointer 
is the address of the region of storage to be 

de-allocated. 

Count a word quantity representing the number of bytes 

to be freed. It must be the same number as that 

given to the NEW call as described above. 
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Device is Valid Indicator 

a long word pointer to a Boolean quantity which 
is set to true is the device named by the first 
parameter above is actually on the system. If 
this parameter is assigned the value false, none 
of the previous three parameters are defined. 

The interpretation of the various parameters of GETDIR is as 

follows: , 

. If Device-is-Valid is false, the device named by the first 
parameter is not on-line. In this case, none of the other 
parameters are meaningful. 

• If Device-is-Valid is true. The Device-Number parameter is 
assigned the number of the unit associated with that volume. 

. The Device-Blocked parameter is set to false if the device is 
not a blocked device (such as the /printer). In this case, the 
Directory parameter is meaningless. If the Device-Blocked 
parameter is set to true, the device is a blocked device, in 
which case the Directory parameter contains the directory read 
in from that volume. 
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4.1.1 Unit Driver Command Parameter 

The Command passed in register D4.W describes what operation is 
to be performed. The command values are summarized here and 
described in greater detail below. When a given driver gets 
control, the caller has already verified (from the unit table) 
that this command is valid for this particular unit driver. The 
values of the command are: 

0 Install the driver - perform any required initialization. 

1 Read from the unit. 

2 Write to the unit. 

3 Clear the unit - reset it to its initial state. 

4 Test if unit is busy. 

5 Return status of unit. 

) 6 Unmount the unit. 

Install When MERLIN installs a unit, either at boot time 

or when a unit is explicitly assigned, it is 
called with the install parameter. The unit can 
perform any initialization code neccessary to 
set up cyclic buffers, place interrupt vectors 
and so on. 


Read and Write Are self-explanatory. 


Clear 


Busy 


Initializes the device - clear pending 
interrupts and such. 

Check if. the unit is ready for data transfer. 


Status 


Unmount 



Return the status of the unit. This operation 
is device dependent. 

Unmount the unit. This is called when the unit 
is re-assigned a new driver or is de-assigned. 
At this time the unit driver should perform any 
clean up or restoring of interrupt vectors that 
might be neccessary. 
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The next piece of code is the entry for a unit driver, 
illustrating how the various sections of the driver are called 
depending on the specific command. 


Entry point for the UART Driver. 


UARTDRIV 

cm. w d7 

MOVE.L D1,A0 

LEA URTTABL,Al 

LSL.W #1,D4 ; 

MOVE.W 0(Al,D4.W),D4 ; 

JMP 0(A1,D4.W) 


IORESDLT := 0. 

AO := Data buffer address. 

Al := Base address of offset table. 
D4 :» Command*2 for word count. 

D4 :* Offset from URTTABL. 

Go to appropriate driver. 


URTTABL DATA.W 
DATA.W 
DATA.W 
DATA.W 
DATA.W 
DATA.W 
DATA.W 


URTINST-URTTABL y 
URTRD- URTTABL 
• URTWR-URTTABL ; 
URTCLR—URTTABL ; 

URTBSY-URTTABL y 
URTST-URTTABL 
URTUNMT-URTTABL ; 


Install driver. 
Read from UART. 
Write to UART. 
Clear UART. 

Test if. Busy. 
Return status. 
Unmount driver. 


The next f.ew code sections 1 illustrate the' entry points and give 
a broad view of the operations-performed. 


Constants to define the UART base addresses. 


UARTA EQU $600000 
UARTAC EQU $600002 


URTINST 

MOVE #UARTAC,A0 

MOVE.B *18,(A0) 

MOVE.B #18,(A0) 

MOVE.B #2,(A0) 

.... more code to 

.... initialize the 

RTS 


URTUNMT 

RTS 
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UART A data register. 
UART A command register. 


y URTINST - Install the Driver, 
y A0 :» UART A control register. 
; Select register. 0. 
y Reset the whole UART. 
y 'Select register 2. 

UART 

y Return to the caller. 


y URTUNMT - Unmount the driver, 
y Nothing to do in this driver. 
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Chapter 5 

Interface Definitions in Pascal 


This chapter shows the Pascal type definitions, and the 
procedure interfaces, to MERLIN. The information given here is 
the Pascal representation of the narrative information in the 
preceding Chapters. 


5.1 Basic Constant and Type Definitions 


Const 


BLOCKSXZE 

m. 

512^ 

VIDLENGTH 

a 

7? 


TIDLENGTH 


15 


MAXDIR 


72 


MAXDEV 

a 

20 


MAXJTABLE 

a 

22 


MAXUTABLE 

a 

10 


MAXPROCESS 

a 

10 


SYSCOMPLOC 

a 

$0180 

LOCODELOC 

a 

$0108 

HICODELOC 

a 

$010C 


number, of bytes, in. a disk block 
number,of characters in a volume name 
number:, of. characters in a file, name 
max number of directory entries/volume 
max number of devices on the system 
number of entries in system call table 
number of entries in user call table 
max number of processes allowed 
System Communication Area Pointer 
Lowest memory location pointer 
Highest memory location pointer 


{ File disposition codes 

FNORMAL - 0; 

FLOCK - 1? 

FPURGE « 2; 

FTRUNC -3?. 


} 


Type 

string80 * string[80]; 
dirrange * 0 .. MAXDIR; , ,,, 

vid » string [VTDLENGTH] ? % 
tid * string[TIDLENGTH]; 
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’ Chapter 5 


Interface Definitions in Pascal 


5.1.1 Layout of the Date Record 


Type 

daterec 


packed record 

year : 0 .. 100; 
day : 0 .. 31; 
month : 0 .. 12; 
end; 


{ 100 => temporary file } 

{ 0 => date not meaningful } 


5.1.2 Layout of a Directory Entry 


C t' 1 - 




Type 

direntry * 

packed record 

firstblock s integer; 
nextblock : integer; ' 

status : boolean; --- 

filler : 0 .. 2047; - 

case fkind : filekind of. 

SECURDIR, UNTYPEDFILE: 
(dvid s vid; 
deovblock: integer; 
dnumfiles: integer; 
dloadtime: integer; 
dlastboot: daterec); 
MemFlipped: Boolean; 
DskFlipped: Boolean; 


„ c 

. r rv'v?‘: (r 


b 


b-' 


rij 


\' . lcJ> 


yj 


t-c 








|l <hn^\ 




:C, 


/ 


disk volurfe^ name ) / 

last block- of volume " 
number of files- CM 




-jvl 


f\ U 1 


O IA 

i jU 


end; 


time of last access — - q 
most recent date setting ^ 
TRUE if flipped in memory] 
TRUE if flipped on disk | 
XDSKFILE, CODEFILE, TEXTFILE, 

INFOFILE, DATAFILE, GRAFFILE, 

FOTOFILE: 

(dtids tid; { title- of file 

dlastbyte.: 1 .. BLOCKSIZE; { bytes in last block 
daccess: da terse.); { last modification date 


i r*\£ qp 
\£ \ # 


i 


K - 

V 


directory * array[dirrange] of direntry; 
pdirectory * '‘directory; 


devrange * 0 
byte - -128 


'X 

MAXDEV;'- 

127; 
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5.1.3 File Interface Block Definition 


type 
pf ib 
fib 


* *fibs • i r a 

record fwindow: pbytes; 

FEOLN: Boolean;^ 

FEOF: Boolean; \ 

FTEXT: Boolean; J r -- .-.—'- 

fstate: (FTVALID t FIEMPTY , FIVALID, FTEMPTY); 
frecsi 2 e: integer 

case FIsOpen: Boolean of ' 'V y. 


t- 


end; 


true: (FIsBlocked: Boolean; ' \ 

funit: integer; 
fvid: vid; . ^ 

frepeatcoun>i : /\0t oy<-‘- 0 
fnextblock/ y 

fmaxblock: integer; ; 

FModified: Boolean; 
fheader: direntry; 
case FSoftBuf: Boolean of 
true: (fnextbyte, fmaxbyte: integer; 
FBufChanged: Boolean; 
fbuff er: a rray0 ^5111 of. byte.; 
(fuparrow: integer7Tfc_ s'? 


or 


'* £° ' 3 *f 

C4uyl ] 




or 
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Type 

pprocrec * A procrec; 

v.. 

procrec * record d: array[0 .. 7] of longint;V 1 / 

a: array [0 .. 7] of longint;\" J 
no; integer; / 

end; 

pproctable = A proctable; 

proctable » array[0 .. MAXPROCESS] of procrec; 
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Interface Definitions in Pascal 


5.2.2 File Input Output 


Procedure 

procedure 

procedure 

procedure 

procedure 

function 

procedure 

procedure 

function 


FINIT(f: pfib; recbytes: integer); 

FGET(f: pfib); 

FPUT(f; pfib); 

FOPEN(fpathname: pstring64; 
f: pfib: 

NewFlag: Boolean); 

FCLOSE(f: pfib; fmode: integer); 

FREADCHAR(f: pfib): byte; 

FWRITECHAR(f: pfib; ch: byte; fsize: 

FSEEK(f: pfib; frecno: longint); 

BLOCKIO(f: pfib; 

fbuff: pbytes; 

fblocks> fbpck: integer; 

ReadFlag: Boolean): integer; 


integer); 
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Chapter 1 


Introduction 


Chapter 1 
Introduction 


The Linker and Library utilities are a pair of complementary 
programs which aid in the process of generating executable 
programs under the MERLIN operating system. 

The Linker links or binds relocatable object-code modules, and 
optional modules from libraries, to form a program which is 
executable. 

The Library utility builds a library from relocatable 
object-code modules. Such a library can contain frequently used 
procedures (such as the mathematical functions of FORTRAN) which 
can be used in subsequent link processes. 


1.1 Building an Executable Program 


To get from the source text of a program to an executable 
object code file, the user must proceed as follows: 

1. The source file is compiled or assembled. The result of 
compiling or assembling is a self-relocatable object-code 
file, along with listings and error diagnostics. This 
process continues until a "clean" compilation or assembly 
is obtained. 

2. The relocatable object-code is linked, possibly including 
run-time support libraries, to generate executable code 
into a disk file. 

3. The program can then be run (executed) on the machine 
simply by typing its filename. 

The following chapters in this manual describe the Linker and 
Librarian object-code management system. 
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Chapter 1 


1.2 Overview and Layout of this Manual 


Chapter 2 covers the Linker, its use, options and messages. 

Chapter 3 describes the Library management utility and how to 
use it to build a library of relocatable object-code modules. 

Chapter 4 is a detailed description of how object-code files 
are constructed, together with details of the various types of 
blocks that go to make an object-code file. 
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Chapter 2 
Linker 


The Linker is a utility which accepts files of relocatable 
object-code generated by the various compilers and assemblers, 
plus library files generated by the Library utility, and links or 
binds those into a form suitable for execution. 

The Linker can also perform a partial link, where a collection 
of relocatable object-modules is bound into one file that can be 
used in future linking operations. This is described later on in 
this section. 

As well as binding together relocatable modules from various 
language processors, the Linker can search libraries of commonly 
used functions, (such as the PASCAL run time environment), and 
link those modules that are referenced into the final loadable 
output file. "" 

In order to link relocatable modules into an executable 
object-code file, the Linker needs the following pieces of 
information: 

. The optional name of the listing file where the Linker messages 
and memory map information is to be listed. If no listing file 
name is given, no memory map information is generated. 

. The name of the object-code file in which to write the final 
linked output. 

- The name(s) of the file(s) from which the relocatable 
object-code is read. 

. A list of one or more libraries which are to be used to satisfy 
external references within the object-code file. 

A typical Linker run is shown below. Linker responses are in 
bold face text, and user.input is underlined. 


Linker/Library Reference Manual 


Page 3 




Linker 


ChaDter 2 


Example of Linker Usage 


% linker 

LINKER - MC68000 Object Code Linker 
20—Jul-81 

(C) 1981 Silicon Valley Software, Inc. 


Listing File - /console 
Output file[.OBJ] - myproglinked 
Input file[.OBJ] - myprog 
Input file[.OBJ] - paslib 
Input file[.OBJ] - 

. Lots of Linker Messages 


% 


The Linker keeps prompting for more "Input files* until an 
empty line (carriage return) is entered. This enables the entry 
of a whole list of libraries as places from which to satisfy 
external references. The last one entered is usually the name of 
a run-time library (PASLI3 in this example). A ".obj" suffix is 
added to all input filenames if it is omitted from the filename 
when entered. 


If the Linker cannot find a specific input file, it displays _a 
message to the effect: 

*** Warning - Can't open input file *** 

and repeats the prompt for an input file. The incorrect filename . 
is simply ignored and the link can be completed with no adverse 
consequences. 


2.1 Linker Options 


Linker options are supplied on the command line when the Linker 
is called up. Linker options are introduced by a "+" sign, a 
sign, followed by a letter, or a The options are as follows: 

? Display status information. 

q The -q option disallows quick-load format for the executable 
object-code file, and forces overlay format. The +q option 
(the default) allows quick-load format. 
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u The +u option lists unreferenced entry points. The default is 

-u. 

m The +m option prints the memory map in the order in which 
modules are linked. The default is -m. 

a The +a option prints the memory map in alphabetical order. The 
default is +a. 

s The +s option prints symbols that start with the sign. 

Such symbols are used for compiler generated symbols. The 
default is -s or do not print "%" symbols. 


2.2 Linker Error Messages 


The Linker can display various error messages in the course of 
its operation. The error messages are self-explanatory. There 
are three grades of error messages, with different outcomes: 

Warnings are correctable errors. The error can be 

corrected and the link proceeds. For example, 
misspelling a^filename will result in a message 
to the effect that the file cannot be opened, at 
which point the filename can be retyped. 


Errors are correctable in that the user can proceed 

with the link process, but the generated 
object-code file is not created properly. 

Fatal errors are those from which the Linker cannot correct 

or recover. In those cases the linker returns 
to the shell. 


2.3 Partial Linking 


As mentioned above, the Linker can perform a partial link, 
where the final output is not neccessarily executable, but a 
collection of separate relocatable object-code files can be 
combined into one file. The resultant file can then be used as 
an input file in subsequent link operations. The output of a 
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u The +u option lists unreferenced entry points. The default is 

-u. 


in The +m option prints the memory map in the order in which 
modules are linked. The default is -m. 

a The +a option prints the memory map in alphabetical order. The 
default is +a. 

s The +s option prints symbols that start with the sign. 

Such symbols are used for compiler generated symbols. The 
default is -s or do not print "%" symbols. 


2.2 Linker Error Messages 


The Linker can display various error messages in the course of 
its operation. The error messages are self-explanatory. There 
are three grades of error messages, with different outcomes: 


Warnings 


Errors 


Fatal errors 


are correctable errors. The error can be 
corrected and the link proceeds. For example, 
misspelling a filename will result in a message 
to the effect that the file cannot be opened, at 
which point the filename can be retyped. 

are correctable in - that the user can proceed 
with the link process, but the generated 
object-code file is not created properly. 

are those from which the Linker cannot correct 
or recover. In those cases the linker returns 
to the shell. 


2.3 Partial Linking 


As mentioned above, the Linker can perform a partial link, 
where the final output is not neccessarily executable, but a 
collection of separate relocatable object-code file's can be 
combined into one file. The resultant file can then be used as 
an input file in subsequent link operations. The output of a 
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partial link can have unsatisfied external references. 

If, for any reason, the linked object file has not had all its 
external references satisfied, the linker displays a message to 
the effect: 

The output is not executable 

This message appears when external references are not satisfied. 
It may mean that a program was missing some subroutines from a 
library (maybe the user forgot to include the library in the link 
process) , or it also can appear when doing a partial link, in 
which case the message is to be ignored, since the full link will 
be done at a later date. 


r 
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Chapter 3 
Library Utility 


The Librarian binds compiled or assembled relocatable 
object-code modules into a collection called a library . The 
purpose of a library is to provide a repository for commonly used 
object modules that have to be present when linking (see the 
Linker description) , such that the common modules end up bound 
together into the final executable code module. 

The library utility typically wants the following pieces of 
information form the user: 

. The name of the file which is to receive the listing (results 
and log) of the library process. 

. The name of the file which is to contain the generated library 
when the library generation process is complete. 

. The name(s) of file(s) (with the .obj) suffix, which contain 
the constituent parts of the library to be generated. 

A typical Librarian session appears below. Note that Librarian 
responses are in bold face text and user inputs are underlined . 


% library 

LIBRARY - MC68000 Library Utility 
20—Jul—81 

(C) 1981 Silicon Valley Software, Inc. 

Listing fiie - /console 
Output Pile[.OBJ] - bodleian 
Input file[.OBJ] - bookshelf 
Input file[.OBJ] - stacks 
Input file[.OBJ] - 

..... Lots of interesting Librarian messages . 

% 

If the'Librarian cannot find the specified input file it issues 
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a message to the effect: 

The file 'whatever.obj* can't be opened 
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Chapter 4 

Object File Formats 


This chapter describes the layout of the object-code files that 
the Linker and Librarian can process. The various code blocks 
are described in sufficient detail that a compiler writer can 
generate object-code that is acceptable to the Linker and 
Librarian. 


4.1 Notation Used to Describe Object File Formats 


The symbol ":: a " is read as "defined to be". Where a whole 
list of objects appear to the right of a "pile" of ":s=" signs, 
it implies a choice of any of the objects. 

Objects enclosed in "angle brackets", "<" and ">" are syntactic 
objects which are defined in terms of other objects. 

An object followed by an asterisk sign, can be repeated 

"zero to many times" (the list of objects can be empty). 

An object followed by a plus sign, "+", can be repeated "one to 
many times" (there must be at least one of that object). 


4.2 Linker File Layout 


This section is a description of the Linker File at the "top 
level". 


<Link File> 


<Module File> 
<Library File> 
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: : = <Unit File> 

<Execute File> 

<Module File> = <Module>* EOF mark 

<Library File> <Library Module Block>+ <Library Entry Block>+ 

<Module>+ <Text Block>* EOF Mark 


<Onit File> <Unit Block> <Module>+ <Text Block> EOF Mark 


<Execute File> ::= <Executable Block> <Module>* 

<Quick Load Block> 

<Module> :<Module Name Block> <Other Block>+ <End Block> 


<Other Block> 


Entry Block 

External Block 

Start Block 

Code Block 

Relocation Block 

Common Relocation Block 

Common Definition Block 

Short External Block 

Data Initialization Block 

FORTRAN data area definition block 

FORTRAN data area Initialization Block 

FORTRAN Data Area Reference Block 

FORTRAN Executable Data Area Initialization Block 
FORTRAN Executable Data Area Reference Block 


4.3 Byte Level Description of Linker Blocks 


All Linker and Librarian object-code blocks start with a single 
"identifier byte". This block identifier takes values from 80 
(base 16) upwards. The choice of values greater than 80 (base 
16) is an attempt to minimise the probability that a regular 
ASCII text file is mistaken for the start of an object-code 
block. 
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4.3.2 81 

byte —> 

81 

size 

csize 


End Block 


+— 

0 1 

JL— 

81 ! 

size (3 bytes) 

-h 

1 

4 1 
+- 

- 

csize (4 bytes) 

1 

-+ 


Hexadecimal 81 indicates this is an End Block. 

Number of bytes in this block - it is always 
000.008. 

Number of bytes in the code block for this 
module. 
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4.3.3 82 - Entry Point Block 


byte —>' 


1 

1 

1 

00 I 
to 1 

1 

1 

h — + 
1 

size (3 bytes) 

1 

link name 
(8 bytes) 


_L 

user name 
(8 bytes) 

««L 


loc (4 bytes) 


comments 

- 

(24 .. size-1 

bytes) ... 


Hexadecimal 82 indicates this is an Entry Point 
Block. 


size 

link name 
user name 
loc 

comments 


Number of bytes in this block. 

V 

Blank padded ASCII Linker name of entry point.^\ ^’ 

Blank Padded ASCII user name of entry point. / 14/1 

- / 

Location of entry point relative to this 
module. w *) x \*a 

Arbitrary information - ignored by the Linker. * 
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4.3.4 83 - External Reference Block 


byte —> 


■+-+--+- 

| size (3 bytes) 

— — — — — — — — — —- 

link name 
(8 bytes) 

.+--i-+- 

user name 
(8 bytes) 

ref 1 (4 bytes) 

“ , 4 —— —— — — — — + - 

ref 2 (4 bytes) 

.+-+-+- 


+ - + - + - + - + 

| each reference consumes 4 bytes | 
+-+-+-+-+ 


16+4*n 


ref n (4 bytes) 

.+--—+- b- 


Hexadecimal 83 indicates this is an External 
Reference Block. 


size 


Number of bytes in this block. 


link 

name 

Blank padded ASCII Linker 
reference. 

name of 

external 

user 

name 

Blank padded ASCII user 
reference. 

name of 

external 

ref 

1 

Location of first reference 
module. 

relative 

to 

this 

ref 

2 

Location of second reference 
module. 

relative 

to 

this 

• • 

• 

Other references. 




ref 

n 

Location of last reference 

relative 

to 

this 




module. 
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4.3.5 84 - Starting Address Block 


byte —> 


size 

start 

gsize 

comments 


84 | 

_L_ 

size (3 bytes) 


start 

— x— 1 ——' 

(4 bytes) 


gsize 

™ T “ ™ -i- «m ill .in l 11 - ■--» '-J- 

(4 bytes) 

-L 

comments 

(12 .. 

— -fii_LL_x um jm mm -ji_.fi -1 mm mm MM .... mm IJL -* 

size-1 bytes) ... 

—r-+- 


Hexadecimal 84 indicates this is a Starting 
Address Block. 

Number of bytes in this block. 

Starting address relative to this module. 

Number of bytes in the global data area. 

Arbitrary information — ignored by the Linker. 


4.3.6 85 - Code Block 


byte —> 

+— 
o 1 

35 | 

size (3 bytes) 


4 1 

-+- 

addr (4 bytes) 

-+--f- 


85 

size 

addr 

object-code 


8 | object-code (8..size-1 bytes) ... | 

+-+-1--+-f 

Hexadecimal 85 indicates this is a Code Block. 

Number of bytes in this block. 

Module-relative address of first code byte. 

The object-code •- always an even number of 
bytes. 


Linker/Librarv Reference Manual 













Object File Formats 


ChaDter 4 


4.3.7 86 - 32-Bit Relocation Block 


byte —: 


size (3 bytes) 


addr 1 (4 bytes) 

addr 2 (4 bytes) 

-+ - + - +- 


.———————-|- ————————-f-——————— —+———————— 4* 

each addr consumes 4 bytes | 


12+4*n 


addr n (4 bytes) 


^ size 
' addr 1 


Hexadecimal 86 indicates this is a 
Relocation Block. 

Number of bytes in this block. 

Location of first address to relocate.. 


32-bit 


addr 2 


Location of second address to relocate. 


Locations of other addresses to relocate. 


addr n 


Location of last address to relocate. 
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4.3.8 87 - Common Block Reference 


H--——|-—-—*4—————— +-—— h 

byte —> 0 | 87 | size (3 bytes) | 

. +- + - + - + - + 

4 common name 

(8 bytes) 

+ - + - + - + - + 

12 | ref 1 (4 bytes) | 

+ - + - + - + - + 

16 | ref 2 (4 bytes) | 

+ - + - + - + - + 

20 | ... | 

- | each reference consumes 4 bytes | 

^-4-4.-+-+ 

I • • • I 

■4————————-f ————————4————————4——4* 

8+4*n | ref n (4 bytes) | 

4-+-t-+-+ 

87 Hexadecimal 87 indicates this is a Common Block 

Reference. ^ 


size Number of bytes in this block, 

common name Blank padded ASCII common block name. 


ref 

i 

Location 

module. 

of 

first 

reference 

relative 

to 

this 

ref 

2 

Location 

module. 

of 

second 

reference 

relative 

to 

this 


• 

Other references relative to this module 

♦ 


ref 

n 

- Location 

of 

last 

reference 

relative 

to 

this 


module. 


Linker/Library Reference Manual 


Paqe 17 













Chapter 4 


Object File Formats 


4.3.9 88 - Common Block Definition 


byte —> 0 

4 

12 

16 

88 


size 

common name 

dsize 

comments 


+--t---+-+-+ 


I dsize (4 bytes) | 

-—— 

| comments (16 .. size-1 bytes) ... | 

+ - + - + - + - + 

Hexadecimal 88 indicates this is a Common Block 
Definition. 

Number of bytes in this block. 

Blank padded ASCII common data area name. 

Number of bytes in this common data area* 
Arbitrary information - ignored by the Linker. 






I 88 | 

+--I-;-+-+-- 


size (3 bytes) 

- 4 *—— 

common name 
(8 bytes) 

-+.-+-_+-- 




Page 18 


Linker/Library Reference Manual 








C h 9 o 1 9 r 4 


Object File Formats 


4.3.10 89 - Short External Reference Block 


byte —> 


12 


20 


18+2*n 


89 

1 

size (3 bytes) 



•T" 

—>4— 

link name 
(8 bytes) 




user name 
(8 bytes) 


ref 1 

T 

(2 

bytes) | ref 2 (2 

bytes) 

• 

T 

• 

. | ref n (2 

-- 

bytes) 


89 

size 

link name 


Hexadecimal 89 indicates 
External Reference Block. 


+ 

I 

+ 

I 

+ 


this is 


Short 


Number of bytes in this block. 

Blank padded ASCII Linker name of external 
reference. 


user 

name 

Blank padded ASCII usep name of 
reference. 

external 

ref 

1 

Location 

module. 

of 

first 

reference 

relative 

to 

this 

ref 

2 

Location 

module. 

of 

second 

reference 

relative 

to 

this 

• • 

• 

Locations 

module. 

of 

other 

references 

relative 

to 

this 

ref 

n. 

Location 

of 

last 

reference 

relative 

to 

this 


'module. 

The Linker does not yet support the short external reference 
block. It is intended to provide for one-word offsets that are 
either filled in with call-relative, short-absolute calls, or 
possibly calls indexed by an A-register, probably A4. The Linker 
will support this type of block in the future, and compilers will 
have an option to control the kind of generated call. 
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4.3.11 8A 

byte —> 

8A 

size 

data area 

dsize 


FORTRAN Data Area Definition Block 

■i -+-+-+-+ 

0 | 8A | size (3 bytes) | 

4 

12 

Hexadecimal 8A indicates this is a FORTRAN Data 
Area Definition Block. 

Number of bytes in this block. 

name Blank padded ASCII name of FORTRAN fixed data 
area. 

Size of this data area. 




data 

(8 

area name 
bytes) 



1 


dsize 

(4 bytes) 


| 
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byte —> 

8B 

size 

data area 

daddr 
data 
00 * 


Object File Formats 


FORTRAN Data Area Initialization Block 


o i 
+ 
4 

+ 

12 | 
16 

+ 


name 


———- 1 —- 

8B | size (3 bytes) 

-+-+-+- 

data area name 
(8 bytes) 

-(.-H-1-- 

daddr (4 bytes) 

— — — — — — +— — — — — — —— -f — -f. — — — — — —< 

data occupies bytes 16 .. size-1 
in the rest of the block j 00 * 

-1-— — — — — — 

Hexadecimal 8B indicates this is a FORTRAN Data 
Area Initialization Block. 

Number of bytes in this block. 

Blank padded ASCII name of FORTRAN fixed data 
area. 

Starting address for this data. - 

The initialization data. 



If the size of the data block is odd, there is 
one byte of 00 added to make the block an even 
number of bytes in size. 
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4.3.13 8C - FORTRAN Data Area Reference Block 


byte —: 


12 


16 


8+4*n 


8C | size (3 bytes) 

-L. _L 

data , 
(3 

area name 
bytes) 

ref 1 

_L. 

(4 bytes) 

ref 2 

(4 bytes) 


• • • 

each reference 

consumes 4 bytes 

_L. 

• • • 

ref n 

(4 bytes) 


+ 

I 

+ 

+ 

I 

+ 

I 

+ 

I 

+ 

I 

+ 


V 1 


8C 

size 

data area name 

ref 1 
ref 2 

• • • 

ref n 


Hexadecimal 8C indicates this is a FORTRAN Data 
Area Reference Block. 

Number of bytes in this block. 

Blank padded ASCII name of FORTRAN fixed data 
area. 

Location of first reference. 

Location of first reference. 

Location of other references. 

Location of last reference. 
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4.3.14 8E - Quick Load Executable Block 


byte —> 0 

+- 

1 

• 8E 

1 

- + ---+- 

size (3 bytes) 

-L J-___ 

4 

1 


start 

location (4 bytes) 

8 

T 

1 


data 

size (4 bytes) 

12 

T" 

1 

code 

block 

bytes (12..size-1) ... 
-+-+- 


8E 

size 

start location 
data size 

code block 


+ 

I 

+ 

I 

+ 

I 

+ 

I 

+ 

Hexadecimal 8E indicates this is a Quick-Load 
Executable Block. 

Number of bytes in this block. 

Relative starting address of the code block. 

Total number of bytes in global common data 
areas. 

The absolute, self-relocatable code block for 
this program.-- “ ” ' 

(ha - 
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4.3.15 8F - Executable Block Definition 


byte —> 


> 0 

1 

X_« 

8F 

| size (3 bytes) 

X X x 

-+ 

1 

_ x 

4 

T 

1 

X-». 

jump 

table address (4 bytes) 

X X X 

•~'T‘ 

1 

, X 

8 

T 

1 

jump table size (4 bytes) 

X. _ X 

1 

x 

12 

1 

4- — 


data size (4 bytes) 

1 

_x 

16 

T 

1 

4—. 


num | 00 | 00 

X X X 

1 

i- 

20 

T 

1 

00 

— 

O 

O 

— 

O 

o 

— 

o 

o 

•T 

[ 

_x 

24 

T ' 

! 

X — 


size 1 (4 bytes) 

1 

_»x 

28 

r ■ ■ 

1 


size 2 (4 bytes) 

1 

_ x 


1 

1 



“T 

1 


1 

X—. 


• • • 

1 

24+n*4 

T 

1 

X— . 


size n (4 bytes) 

1 

_x 

28+n*4 

T ,1M 

1 

jump 

table bytes (... size-1) ... 

1 

—h 


8F 


size 


Hexadecimal 8F indicates this is an Executable 
Block Definition. 

Number of bytes in this block. 


jump table address 

Absolute load address of jump table. 

jump table size Number of bytes in the jump table. 

data size Total number of bytes in global common data 

areas. 


num 


Number of FORTRAN Data Areas. 


00 00 00 00 00 00 

six bytes of zero filler 


size 1 


Size of first FORTRAN Data Area. 
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Object File Formats 


size 2 Size of second FORTRAN Data Area. 

. . . Sizes of other FORTRAN Data Areas, 

size n Size of last FORTRAN Data Area. 

jump table The jump table itself, including the executable 

code for the loader. For a further description, 
see the section on "Executable Block Details". 


Linker/Library Reference Manual 


Page 25 



Object File Formats 


Chapter 4 


4.3.16 90 -Library Module Block 


byte —: 


90 

size 

module 

msize 

caddr 

taddr 

tsize 

module 

module 

module 


12 


16 


20 


24 


28 


32 


90 | size 

(3 bytes) 


module name 
(8 bytes) 

_L_ _1_ _ 

~r 

msize 

A. — 

(4 

_L 

bytes) 

~r 

-L 


caddr 

■ J " T* 

(4 

„ «L._ 

bytes) 

T ^ ^ ^ 


taddr 

(4 

bytes) 

T - — — - 

-L 


tsize 

r 

(4 

bytes) 

T rr ™ 1 


module count 

■ —■ T" 

1 

module 1 


module 2 

T 

1 

_ —Am. 

• 

• • 


module n-1 

m *—T" 

1 

- +■ 

module n 



name 


count 


1 

2 


+ 

I 

+ 


Hexadecimal 90 indicates this is 
Module Block. 


a Library 


Number of bytes in this block. 

Name of this module. 

Number of bytes of code in this module. 

Disk address of module. 

If non-zero, is the disk address of the text 
block. If zero, there is no text block. 

Size of text block. 

Number of other modules that this module 
references. 

Number of the first module referenced. 

Number of the second module referenced. 
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module 


4.3.17 


byte — 


4 


Object File Formats 


Numbers of other modules referenced, 
n Number of the last module referenced. 


91 - Library Entry Block 


> 


0 

4 

12 

14 



? 
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4.3.18 92 - Unit Block 

I 


bytei —> 


92 

size 

unit name 

caddr 

taddr 

tsize 

gsize 


0 

4 

12 

16 

20 

24 


-j-- 

| 92 

4. 

1 

size (3 bytes) 

1 



unit name 
(8 bytes) 

_ _ _ _ 

T " 1 

1 

_l_ 

caddr (4 bytes) 

1 

| taddr (4 bytes) | 

| tsize (4 bytes) | 

» 

1 

+- 

-+- 

nr 1 

gsize (4 bytes) 
- + - + - 

_ 1 


Hexadecimal 92 indicates that this is a Unit 
Block. 

Number of bytes in this block - always 00001C. 
Name of this unit. 

Disk address of module. 

Disk address of text block. 

Size of text block. 

Number of bytes of globals in this unit. 
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4.3.19 93 - FORTRAN Executable Data Area Reference Block 


byte —> 


10 | 


2+4*n 


93 

| size (3 bytes) 

1 

area number | . 

-L i 


ref 1 

(4 bytes) 

_ t _i_ 

I 


ref 2 

■ -JTIBJLJI J “ —— — " 

(4 bytes) 

-t- - j_ 

■"T 

1 

_l_ 




■“ T 

1 



• • 

mam. —Anr wr- m— rrw —nr -r- 

1 

_ _ ,1 

each 

reference 

“ i ■ ■ "™ r — — ■ ■ 

consumes 4 bytes 

_i_ 

1 

i 


• 

T — — — — — *T—* *** 

• • 

• 1 r 

1 


ref n 

- +- 

■- -J- J. 

(4 bytes) 

--h-+- 

■ ! 

1 

- b 


93 

size 

area number 
ref 1 
ref 2 

• • • 

ref n 


Hexadecimal 93 . indicates this is a 
Executable Data Area Reference Block. 

Number of bytes in this block. 

Data area number. 

Address of first reference. 

Address of second reference. 

Addresses of other references. 

Address of last reference. 


FORTRAN • 
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O 

4.3.20 94 - FORTRAN Executable Data Area Initialization Block 


byte —> 0 

+- 

1 

94 | size (3 bytes) 

4 

T - ' 

t 

data area number| . 

6 

1 

4 ._ 

daddr (4 bytes) 

_i_ . __ 

10 

T 

1 

+- 

initialization data . 


+■-+-h-+-+ 


I 00 | 


94 

size 

data area number Number of the FORTRAN Data Area. 

daddr Starting address for this data. 

initialization data 

The data to fill the block with. 



Hexadecimal 94 indicates this is a FORTRAN 
Executable Data Area Initialization Block. 

Number of bytes in this block. 


00 If the size of the initialization data is an odd 

number of bytes, a filler of 00 is appended to 
make it an even number of bytes. 


C> 

c 
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4.4 Executable Block Details 


This section describes the layout of an executable block. It 
includes details of the jump table and segment tables. 


4.4.1 Layout of an Executable Block 


—I——--t—-—i-——+ 

byte —> 0 | 8F | size (3 bytes) | 

4 | Jump Table Address (4 bytes) | 

4™———————4—-f———*———— 4 . 

8 | Jump Table Size (4 bytes) | 

-i~———4™———————4——————— —-b————————4* 


12 

1 

Data Size (4 bytes) 


16 

i 

-L _ 

Num 

j 00 

-rr-f- rm —i_Bit _r m- 

1 

00 

20 

| 00 

| 00 

j 00 

t —— 

1 

-i_ 

00 

24 

1 

Size 1 

r 11 u 1 ■ ”■ 

(4 bytes) 

4 - 

■’“ 4 “ 


28 

* " ™ ■ 

1 

Size 2 

jl « p u rn -mm mm mm mm, mm mm 

(4 bytes) 

4- 




T“ — “ **■ 

1 

• 

. T* "* * ™ ■“ 

• • 



20 + 4 *n 

1 

J.-.-.., 

Size n. 

•" T"" “ “ “■ “ * "■ 

(4 bytes) 



24 + 4 *n 

— «m — i 11 ■ 

| Jump 

4 - 

Table (... 

size-1 bytes) 
—4 -+- 

• • • 


8F -Hexadecimal 8F indicates this is an Executable 

Block Definition. 

size Number of bytes in this block. 

jump table address 

Absolute load address of jump table. 

jump table size Number of bytes in the jump table. 
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data size Total number of bytes in global common data 

areas. 

num Number of FORTRAN Data Areas. 

00 00 00 00 00 00 

six bytes of zero filler. 

Size of first FORTRAN Data Area. 

Size of second FORTRAN Data Area. 

Sizes of other FORTRAN Data Areas. 

Size of last FORTRAN Data Area. 

The jump table itself, including the executable 
code for the loader. 

If any FORTRAN Executable Data Area Initialization Blocks are 
present, they must immediately follow the executable block. 


size 1 
size 2 

• • • 

size n 
jump table 
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4.4.2 Format of the Jump Table 


A4 —> $$TOP 


+2 


+34 


2+n*32 | Dummy Table £n+l (4 bytes) | 

+ - + - + - + - + 

| $__START Descriptor (10 bytes) | 

+ - + - + - + - + 

j Segment #1 P#2 Descriptor I 


| 'Segment #1 P#n Descriptor | 

44 ——————” 4 —————“— 4 ———————+ 

Segment #2 P#1 Descriptor 

.......... All segment 

Segment #2 P#n Descriptor descriptors 

+-+-+-+-+ are 10 bytes. 

| Segment #3-P#l Descriptor | 

+ - . - + - + - + - ► 

I ... I 

+ - + - + - + - + 

| Seg. £m P#n Descriptor (10 bytes) | 

-20 | Address of REMOVEl (4 bytes) | 

4 —“-“—— 4 — 4 ———“—— 4"——————4 

-16 | Address of Buffer (4 bytes) | 

4 -*--“———— 4 ——— 4 "——— 4——“————4 

-12 | Address of Code File (4 bytes) | 

4 —“"" 4 "— 4 -———— 4“———4 

-8 | Active Segment List (4 bytes) | 

+-+-+- —+-+ 

-4 | Address of $$T0P (4 bytes) | 

H-:-+--+-+-+ 

$$LOADIT Object-code neccessary to 

load and execute a segment. 

-I-H-+-+-+ 


+-+-+-+-+ 

| Number of Segments' (2 bytes) | 

4——"———4 4 ——“““ 4 ——- —4 

| Main Segment Table (32 bytes) | 

4 ————————— 4 —— —————— 4 ———————— 4————————4 

Segment Table #2 (32 bytes) 

Segment Table #n (32 bytes) 

+ - + - + - + - + 
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4.4.3 Layout of a Segment Table 

- A Segment Table consists of eight 32-bit values: 


0 

+- 

1 

J. _ 

Address of first descriptor 

-+ 

1 

_ _!_ 

4 

T* 

1 

«L. « 

File Address of Segment 

I 

8 

T 

1 

-L 

Size of code in bytes 

1 

- L 

12 

1 

Actual Address in Memory 

1 

16 

1 

l- _ 

Scratch Return Address 

• - 1 

1 

, 4- 

20 

i 

1 

t- - 

Segment Reference Count 

■* — r 

1 

\ 

24 

r ■ 

1 

i 

Active Segment-list link 

— — T 

1 

28 

1 

... Reserved . . . 

r 

1 


^ - + - + - + - + 
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4.4.4 Layout of Descriptors 

An entry-point-descriptor is in one of two states, depending 
whether its corresponding segement is in memory or not. The 
formats of a descriptor are: 


When Segment not in memory: 

4 -——+—---——+ 

1 Relative offset of this | 

| entry in its segment. | 

J JSR xxx.L | 

4 - y -+ 

| Absolute address of | 

j $$LOADIT | 

4-- 1 - y 


When segment in memory: 

— — — — — — — — — — — —— — — — — — —-—-h 

| Relative offset of this | 

+ - -+ 

| entry in its segment. | 

+-+-+ 

| JMP xxx.L | 

+-+- y 

| Absolute address of | 

-I — — —-+ 

| procedure as loaded | 

+-+- y 
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4.5 Loading a Segment 


A segment is loaded into memory when the first call to one of 
its procedures is executed. Such a call is always via a 
descriptor in the jump table. 

The JSR to $$LOADIT executes the loader from its entry-point 
'?$LOADIT'. The loader is able to tell which segement to load by 
comparing the place from which it was called with the limits of 
the segment-table entries found in the first part of the jump 
table. The loader then performs the following actions: 

1. The loader loads that segment. 

2. Fixes up all the JSR's to JMP's, so that further calls upon 
that segment jump directly to the entry-point instead of 
calling the loader. 

3. Saves the calling routine's return address in the segment 
entry. 

4. Patches the return address on the stack to return through 
the anti-loader entry-point •$$REM0VE1'. 

5. Jump to the procedure entry-point which caused this loader 
invocation in the first place. 

Further calls to entry-points in the segment are thus only 
slowed by a single JMP instruction instead of a loader call. 
When the initial call to that segment eventually returns, it will 
pass through '$$REMOVEl', which removes that segment and reclaims 
the memory which that segment uses. 


4.6 Running a Program 


When a program is executed, the program called 'run' performs 
the following steps: 

1. The file containing the executable program is opened. 
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2. 

It is checked to see 
example, the first byte 

if it 
should 

is 

be 

the 

8F 16 

correct 

/ 

format, 

for 

3. 

The jump table is loaded into 

the 

proper 

location 

in 


memory, and 

4.. A JSR to JT+Word (JT) *32+2 is executed. 

The normal overlay procedure .then takes control to overlay the 
main segment and begin execution at its starting address. 


o 


0 


( 
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CORVUS CONCEPT 
Technical Erratta Section 






This is a preliminary list of files required to support the Corvus 
CONCEPT workstation. Files and file names may change between now 


and beta site distribution. Files 
to boot the system. 


Volume: CCSYS, size = 2048 blocks 
Operating system: 


ASSIGN 

9 

data 

* 

CC.BOOTL 

2 

data 


CC.DISPAT 

16 

data 

★ 

CC.FILMGR 

30 

data 

* 

CC.HELP 

7 

data 


CC.KERNEL 

52 

data 

* 

CC.SETPRT 

15 

data 


CC.SETUP 

24 

data 

* 

CC.SYSMGR 

16 

data 


CC.WNDMGR 

23 

data 

★ 

SHELL 

12 

data 


WRITEBOOT 

5 

data 


Operating system drivers: 
DRV.CONSOL 2 

data 

★ 

DRV.DISPHZ 

7 

data 

★ 

DRV.DISPUD 

7 

data 


DRV.DISPVT 

7 

data 

★ 

DRV.KYBD 

6 

data 

* 

DRV.PRNTR 

3 

data 


DRV.SYSTRM 

5 

data 

* 

DRV.TIMER 

3 

data 

★ 

Character set files 
CSH.DEFAULT 

• 

• 

4 

data 


CSK.DEFAULT 

2 

data 

★ 

CSU.DEFAULT 

4 

data 

* 

CSU.ALTCHARSET 

13 

data 


CSV.DEFAULT 

3 

data 

* 

Help data files: 

H.DISPAT.TEXT 

4 

text 


H.FILMGR.TEXT 

6 

text 


H.SYSMGR.TEXT 

4 

text 


H.WNDMGR.TEXT 

4 

text 


System development 
ASM68K 

files: 

72 

data 


CODE 

89 

data 


DEBUG 

12 

data 


FORTRAN 

185 

data 


LIBRARY 

25 

data 


LINKER 

51 

data 


LOADER.IMAGE 

1 

data 



marked with an * are ^peghired 


L.E.F. 


Assign driver to device 
Local disk boot 
Dispatcher 
File manager 
System help program 
Operating system kernel 
Printer port set up 
System initialization 
System manager 
Window manager 
System command processor 
Write boot blocks 


Console driver 
Horizontal display driver 
Horizontal display driver 
Vertical display driver 
Keyboard driver 
Serial printer driver 
System terminal driver 
Timer (clock) driver 


Horizontal display character set 
Keyboard character set 
Horizontal display character set 
Alternate display character set 
Vertical display character set 


Dispatcher help text 
File manager help text 
System manager help text 
Window manager help text 


MC68000 assembler 
Code file generator 
Simple debugger 
Fortran compiler 
Library manager 
Code file linker 



PASCAL 

184 

data 

Pascal compiler 

VSIPPP 

20 

data 

Pascal program preprocessor 

VSIXRF 

30 

data 

Pascal program cross reference 

FTNLIB.OBJ 

217 

data 

Fortran support library 

PASLIB.OBJ 

53 

data 

Pascal support library 

System support files 

• 

• 


i 

DIAG.DATA 

1 

data 

Disk diagnostic data 

EDCH 

28 

data 

Character set, editor 

MOVE 

20 

data 

Disk block mqve program 

ODIAG 

45 

data 

OMNINET diagnostic program 

SPOOL 

28 

data 

Text file spool/despool program 

ZAP 

29 

data 

Disk block patch program 

Application files: 



r 

CC.CPM 

22 

data 

CP/M interpreter 

CC.LGICLC1 

94 

data 

LogiCalc 

ED 

199 

data 

EDWORD 

C EDINIT.TEXT 

4 

text 

EDWORD support 

LCMASK 

9 

data 

LogiCalc support 

SYSTEM-APPLECPM 

26 

data 

CP/M support 

ZED 

96 

data 

EDWORD (Zentec version) 

Demo files: 




GRAPHICS 

4C 

data 

Graphics demo 

GDEMO 

6 

text 

Graphics demo data 

MEM 

4 

data 

Plot memory (one line) 

PLOTMEM 

5 

data 

Plot memory 

WDEMO 

21 

data 

Window demo 



File: cclib.doc.text 
■Date-: 13-Apr-82 


g Corvus CONCEPT System Library 

(V 

The /CCUTIL/CCLIB.OBJ library file contains support units and 
subroutines for the Corvus CONCEPT. 


Units in the CCLIB library include: 

CCdefn - Corvus CONCEPT Definition Unit 
CCclklO - Corvus CONCEPT Clock Processing Unit 
CCcrtIO - Corvus CONCEPT CRT Control Unit 
CCdrvIO - Corvus Disk Drive Support Unit 
CCdrvUl - Corvus Disk Drive Utilities Unit 
CChexout - Output Hex Characters Unit 
CClbllO - Corvus CONCEPT Label Processing Unit 
CCpipes - Corvus Disk Drive Pipes Unit 
CCprtIO - Corvus CONCEPT Printer I/O Unit 
CCsema4 - Corvus Disk Drive Semaphore Unit 
CCwndIO - Corvus CONCEPT Window Processing Unit 


Subroutines in the CCLIB library include: 




u 


i/SactSlt - Get active slot function 

FUNCTION OSactSlt: integer; 


OSactSrv - Get active server function 
FUNCTION OSactSrv: integer; 

OSaltSlt - Get alternate slot function 
FUNCTION OSaltSlt: integer; 

OSaltSrv - Get alternate server function 
FUNCTION OSaltSrv: integer; 

Get device type for slot function 
FUNCTION OSsltType (slot: integer): slottype; 

Check for external CRT function 


OSsltTyp - 


J extCRT - 



FUNCTION OSextCRT: boolean? 

i 

OSmaxDev - Get maximum device number function 
f FUNCTION OSmaxDev: integer; 

OSdispDv - Get DISPLAY driver device number function 
FUNCTION OSdispDv: integer; 

OSkybdDv - Get KYBD driver device number function 
FUNCTION OSkybdDv: integer; 

OStimDv - Get TIMER driver device number function 
FUNCTION OStimDv: integer; 

OSomniDv - Get OMNINET driver device number function 
FUNCTION OSomniDv: integer; 

OSdcm2Dv - Get DTACOM2 driver device number function 
{'•' C FUNCTION OSdcm2Dv: integer; 

V v 

OSdcmlDv - Get DTACOM1 driver device number function 
FUNCTION OSdcmlDv: integer; 

pOSuserlD - Get Constellation user ID pointer 
FUNCTION pOSuserlD: pointer; 

pOScurWnd - Get current window record pointer 
FUNCTION pOScurWnd: pointer; 

pOSsysWnd - Get system window record pointer 

FUNCTION pOSsysWnd (wndnbr: integer): pointer; 


pOSdevNam - Get device name pointer 

FUNCTION pOSdevNam (untnbr: integer): pointer; 



CCdefn Unit Interface 


C.ONST 

MAXWINDOW = 20; 

SysComPLoc = $0180; 

g-- LongStrMax = 1030; 

( I MaxBytes = 10000; 


{ } 

{ Corvus CONCEPT I/O Result Codes } 

{ } 

IOEioreq =03; { Invalid I/O request } 

IOEnotrn =21; { Transporter not ready } 

IOEtimot = 22; { Timed out waiting for Omninet event } 

IOEnobuf =23; { Read without a valid write buffer } 

IOEwndfn =32; { Invalid window function } 

IOEwndbe =33; { Window create boundary } 

IOEwndcs =34; { Invalid character set } 

IOEwnddc =35; { Delete current window } 

IOEwndds =36; { Delete system window } 

IOEwndiw =37; { Inactive window } 

IOEwndwr =38; { Invalid window record } 

IOEwndwn =39; { Invalid system window number } 


IOEnodsp = 40; { Display driver not available } 
IOEnokyb =41; { Keyboard driver not available } 
IOEnotim =42; { Timer driver not available } 
IOEnoomn =43; { OMNINET driver not available } 
IOEnoprt =44; { Printer driver not available } 



TYPE 



IOEtblid = 

50 

{ Invalid table-entry ID 

} 

IOEtblfl = 

51 

{ Table full 

} 

IOEtbliu = 

52 

{ Table entry in use 

} 

IOEkybte = 

53 

{ Keyboard transmission error 

} 

IOEuiopm = 

54 

{ Invalid unit I/O parameter 

} 

IOEprmln = 

55 

{ Invalid parameter block length 

} 

IOEfnccd = 

56 

{ Invalid function code 

} 

IOEclkmf = 

57 

{ Clock (hardware) malfunction 

} 

Byte 

m 

-128..127; 


String32 

= 

STRING[32]; 


pString32 

S 

*String32; 


String64 

SC 

STRING[64]; 


pString64 

s 

*String64; 


String80 

3 

STRING[80]? 


pString80 

= 

~String80; 


Bytes 

= 

ARRAY [0..9999] OF Byte; 


Words 


ARRAY [0..9999] OF INTEGER; 


pBytes 

ss 

~Bytes; 


pWords 

* 

^Words; 


slottypes 

SS 

(nodrive,floppydrive,localdrive,omninet); 








I^ongStr 


SndRcvStr 


= RECORD 

len: INTEGER; 
CASE integer OF 


1: 

(c: 

PACKED 

ARRAY 

[1. 

.LongStrMax] 

OF 

CHAR); 

2: 

(b: 


ARRAY 

[1. 

.LongStrMaxj 

OF 

byte) ; 

3: 

(str: 

PACKED 

ARRAY 

[1. 

.LongStrMax] 

OF 

CHAR) f t 

4: 

(int: 


ARRAY 

[1. 

.LongStrMax] 

OF 

byte) 

END; 







i 

RECORD 


- 





\ 

sin: INTEGER; 

{send 

length} 




rln: INTEGER; 

{recv 

length} 




CASE integer 

OF 






1: 

(c: 

PACKED 

ARRAY 

[1. 

.LongStrMax] 

OF 

CHAR) 

2: 

(b: 


ARRAY 

[1. 

.LongStrMax] 

OF 

byte) ?| 

3: 

(str: 

PACKED 

ARRAY 

[1. 

.LongStrMax] 

OF 

CHAR); 

4: 

(int: 


ARRAY 

U. 

.LongStrMax] 

OF 

byte); 


END; 




. pCharSet a 

~CharSet; 



CharSet = 

record 


[length 

offset} 




4 

0 } 

tblloc: pBytes; 

{character set data pointer} 

{ 

2 

4 } 

lpch: integer 

{scanlines per character (assume wide) } 

f. 

. 2 

6 } 

bpch: integer 

{bits per character (vertical height) } 

( 

^ 2 

8 } 

frstch: integer 

{first character code - ascii} 

V 

v 

2 

10 } 

lastch: integer 

{last character code - ascii} 

{ 

4 

12 } 

mask: longint 

{mask used in positioning cells} 

{ 

1 

16 } 

attrl: byte; 

{attributes} 





{ bit 0=1- vertical orientation} 

{ 

1 

17 } 

attr2: byte; 

{currently unused} 

{ 

total 

18 } 

end; 



pWndStat = 

"WndStat; 



WndStat 

record 


{length 

offset} 



{ 

2 

0 } 

homex: integer; 

{relative to current character set} 

{ 

2 

2 } 

homey: integer; 

{relative to current character set} 

{ 

2 

4 } 

width: integer; 

{relative to current character set} 

{ 

2 

6 } 

lngth: integer; 

{relative to current character set} 

{ 

1 

8 } 

active: boolean; 

{active window flag} 

{ 

1 

9 } 

fillls byte; 

{currently unused} 

{ 

total 

10 } 

end; 



pWndRcd = 

= "WndRcd; 



WndRcd s 

= record 


{length 

offset} 



{ 

4 

0 } 

charpt: pCharSet;{character set record pointer} 

{ 

4 

4 } 

homept: pBytes; 

{home (upper left) pointer} 

I 

. 4 

8 } 

curadr: pBytes; 

{current location pointer} 

if 2 

12 } 

homeof: integer 

{bit offset of home location} 

vv 

' 2 

14 } 

basex: integer 

{home x value, rel to root window} 

{ 

2 

16 } 

basey: integer 

{home y value, rel to root window} 

{ 

2 

18 } 

Ingthx: integer 

{maximum x value, bits rel to window} 

{ 

2 

20 } 

lngthy: integer 

{maximum y value, bits rel to wimdow} 

{ 

2 

22 } 

cursx: integer 

{current x value, bits rel to window} 

{ 

2 

24 } 

cursy: integer 

{current y value, bits rel to window} 

{ 

2 

26 } 

bitofs: integer 

{bit offset of current address} 

{ 

2 

28 } 

grorgx: integer 

{graphics - origin x, bits rel to home} 

{ 

2 

30 } 

grorgy: integer 

{graphics - origin y, bits rel to home} 

{ 

1 

32 } 

attrl: byte; 

{inverse, underscore, insert} 

{ 

1 

33 } 

attr2: byte; 

{v/h, graphics/char, cursor on/off. 





cursor inv/underline} 

{ 

1 

34 } 

state: byte; 

{used for decoding escape sequences} 

{ 

2 

35 } 

rcdlen: byte; 

{window description record length} 

{ 

total 

36 } 

end; 







CCciklO Unit Interface 


TYPE 

ClkStr2 = string [2]; 

ClkStrlO = string[10]y 
ClkStr40 = string[40]; 

('\_ y ClkPB = record 

V DayofWeek,Month,Day: integer; 

Hour,Mins,Secs,Tenths,LeapYear: integer ? 


VAR 


Clklnfo: 
ClkDebug: 
ClkWD: 
ClkYr: 
ClkMo: 
ClkDy: 
ClkHr: 
ClkMi: 
ClkSc: 
ClkDatel: 
ClkDate2: 
ClkDate3: 
ClkTimel: 
ClkTime2: 
Year: 


end; 


ClkPB; 
boolean; 
ClkStrlO; 
ClkStrlO; 
ClkStrlO; 
ClkStr2; 
ClkStr2; 
ClkStr2; 
ClkStr2; 
ClkStr40; 
ClkStr40; 
ClkStr40; 
ClkStr40; 
ClkStr40; 
integer; 


{ clock parameter block } 
{ debug flag } 

{ day of week } 


{ year } 
{ month } 
{ day } 
{ hour } 
{ minute } 
{ second } 


{ date: "dy-mon-yr" format 
{ date: "month dy, year" format 
{ date: "dy month year" format 
{ time: "hr:mi:sc" format 
{ time: "hr:mi am" format 
{ set by unit ??? } 


{ set by timer 
{ set by timer 


} 

} 

} 

} 

} 


procedure ClkRead (var CPB: ClkPB) 
procedure ClkWrite (CPB: ClkPB); 
procedure ClkFormat (CPB: ClkPB); 

■([ >cedure CCclklOinit; 



driver } 
driver } 




CCcrpIO Unit Interface 
USES '{$U CCLIB} CCdefn? 


CONST 

CCcrtlOversion = 'n.n*? 
g- YesEcho = TRUE; NoEcho = FALSE; 

{" V shft = TRUE; NoShft = FALSE; 

Bsup = TRUE; NoBsup = FALSE; 

TYPE ' 

CrtRdx = (BinRdx,OctRdx,DecRdx,HexRdx)? 

CrtStatus = (Normal, Escape, Error); 

CrtCommand = (ErasEOS, ErasEOL, Up, Down, Right, Left, Leaain, 
I Tab, StartBeat, HeartBeat); 


VAR 




i 


Beep 

CrfTpgm 

Crt'Tvrs 

CrtTcpy 

WndowLin 

WndowCol 

BeatCnt 

NumDef 

StrDef 

Shift 

Compress 

TypeAhead 

EchoCH 

RealCRT 

ExtCRT 


CHAR; 

STRING[16] 
STRING[16] 
STRING[80] 
INTEGER; 
INTEGER 
INTEGER 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 


JNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 


Uppercase 

GetNum 

GetLongNum 

GetString 

GetByte: 

CvStrInt 

CvIntStr 

CvLIntStr 

CrtAction 

CrtTitle 

CrtPrompt 

CrtPause 

GoToXY 


(ch: 

(VAR 

(VAR 

(VAR 


CHAR): 

num:INTEGER): 
In: LONGINT): 
buf:String80) 


CCcrtlOinit; 


(VAR buf:String80): 
(num: INTEGER; VAR 
(num: LONGINT; VAR 
(cmd: CrtCommand); 
(txt: String80); 
(txt,opt: String80) 
(VAR ch: CHAR); 
(x,y: INTEGER); 


CHAR? 

CrtStatus; 
CrtStatus? 
CrtStatus? 
CHAR? 
INTEGER? 
buf:String80? 
buf:String80) 


rdx:CrtRdx) 


{PROCEDURES/FUNCTIONS for compatibity] 

PROCEDURE Crt (Cmd: CrtCommand)? [same as CrtAction] 


EraseALL, 






CCdrylO Unit Interface 

USES '{$U CCLIB} CCdefn; 

* 

CONST 

CCdrvioVersion = 'n.n'; 

4 lowslot = 1; 

' highslot =5; 

TYPE 

sevenbits = 0..127; 
eightbits = 0..255? 

aname = PACKED ARRAY [1..4] OF CHAR; 

cdosbuf = ARRAY [0..255] OF byte; 

trkaddr = PACKED RECORD 
top3: 0..7; 
msb; 0..31; 
lsb: 0..255; 

END? 


voltabent = RECORD 

ftrk: trkaddr; 
ltrk: trkaddr; 

END; 

cbuffer * ARRAY [0..127] OF trkaddr? 


volent 



cvoldir 


filent 


cdir 



= RECORD 
ftype, 
lblk, 

fblk: INTEGER; 
vname: STRING[7]? ' 

nfils, 

nblks: INTEGER; 

d2: PACKED ARRAY [0..7] OF CHAR; 

END? 

= RECORD 

ftype, lblk, fblk: INTEGER? 

name: STRING[7]? 

nfils, nblks: INTEGER? 

fill: PACKED ARRAY [1..494] of CHAR? 

END; 

= RECORD 
ftype, 
lblk, 

fblk: INTEGER? 
name:’ STRING[15]? 

d2: PACKED ARRAY [0..3] OF CHAR? 

END? 

* RECORD 

volu: volent? 

fil: ARRAY [1..77] OF filent? 

END? 



userentry = PACKED RECORD 
, , name: aname; 

password: PACKED ARRAY[1..2] OF CHAR; 

* ' bootvolume: eightbits; 

id: sevenbits; 

pascaluser: BOOLEAN; 

( END; 


ctable = ARRAY [1..128] OF userentry; 


cdtyp = (abuffer, avoldir, adir, atable, avbuf, adosbuf); 

cdbuf - RECORD CASE cdtyp OF 

abuffer: (buffer: cbuffer); 
adir: (dir: cdir) ; 

atable: (table: ctable); 

adosbuf: (dosbuf: cdosbuf); 
avoldir: (voldir: cvoldir); 

END; 


VAR 


drvCslot: 
drvPslot: 
drvAslot: 
PrepFile: 
PrepFID: 


INTEGER; 

INTEGER; 

INTEGER; 

FILE; 

String32; 


{current slot number} 
{primary (boot) slot number} 
{alternate slot number} 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
/I JCTION 
V.3NCTI0N 
FUNCTION 
FUNCTION 
PROCEDURE 


cdsend (VAR st: SndRcvStr); 
cdrecv (VAR st: SndRcvStr); 

disksend (slot: INTEGER; VAR st: SndRcvStr); 
diskrecv (slot: INTEGER; VAR st: SndRcvStr); . 
cdread (VAR buf: cdbuf; len,drv,sct: INTEGER): INTEGER; 

cdbuf; len,drV/SCt: INTEGER): INTEGER; 
SndRcvStr; drv: INTEGER): INTEGER; 
UnPrep (VAR xcv: SndRcvStr): INTEGER; 

CCdrvIOinit; 


cdwrite (VAR buf 
PutPrep (VAR xcv: 


O 

( 




CCdrvUl Unit Interface 


USES 

r$U CCLIB} CCdefn, 

{$U CCLIB} CCdrvIO; 

( O st 

V CCdrvUlVersion = 'n.n* ; 
DrMax = 5; 


TYPE 

DrRev 
DrSizes 
VirDrlnfo 


PhysDrInfo 


VDrArray 

PDrArray 


(RevA,RevB,RevC); 

(OldTenMB f FiveMB, TenMB, TwentyMB,For tyMB); 

RECORD 

Capacity: LONGINT; 

END; 

RECORD 

spt,tpc,cpd: INTEGER; 

Capacity: LONGINT; 

DrSize: DrSizes; 

DrType: DrRev; 

PhysDr: BOOLEAN; {true if physical drive, false for virtual} 
END; 

ARRAY [1..DrMax] OF VirDrlnfo; 

ARRAY [1..DrMax] OF PhysDrlnfo; 


VAR 

DrDebug: 
DrTbuf: 
DrNumDrvs: 
DrUserlD: 

- DrVolDrv: 
DrVolAddr: 
DrVolIndex: 


BOOLEAN; 
CDBuf; 
INTEGER; 
INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 


DrVolTable: ARRAY [0 


DrVirDrv: VDrArray; 
DrPhyDrv: PDrArray; 


{general purpose I/O buffer} 
{number of drives online} 

{current user ID} 

{-set by FindVol-} 

{current volume disk drive} 
{current volume block address} 
{current index into volume table} 
{current disk volume table} 

.63] OF VolTabEnt; 

{-- --- } 

{for call to CheckDrives} 

{ditto ...} 


PROCEDURE 

PROCEDURE 

FUNCTION 

PROCEDURE 

FUNCTION 

PROCEDURE 


DrvRd (VAR Buf: CDBuf; Len,Drv,Sec: INTEGER); 

DrvWr (VAR Buf: CDBuf; Len,Drv,Sec: INTEGER); 

GetAddr (Trk: TrkAddr): INTEGER; 

ReadVT (Drive,User Id: INTEGER); 

FindVol (Mname: String32; Drive,User ID: INTEGER): 
CCdrvUlinit; 


INTEGER; 




CChe^out Unit Interface 


USES ' 

{•$0. CCLIB} CCdefn; 

PROCEDURE puthexbyte(b* BYTE); 

C CEDURE puthexword(w: INTEGER); 
CEDURE puthexlong(1 : LONGINT); 
PROCEDURE dumphex(p: pBYTES; len: 
PROCEDURE hexinit; , 


INTEGER); 



CClbllO Unit Interface 
'TYPE* 

’* -LblKeyStr = string[6]; 

LblRtnStr = string[16]; 

C OCEDURE Lblslnit; 

OCEDURE LblsOn; 

'FUNCTION LblSet (KN: integer; LblStr: LblKeyStr; 

RetStr: LblRtnStr): integer; 


PROCEDURE CClbllOinit; 



CCpipes Unit Interface 


USES * 

{$U« CCLIB} CCdefn; 


CONST 

PipesVersion 
^ PnameLen 
PblkLen 


'n.n'; {current version number} 
8; {size of a pipe name} 

512; {size of a pipe block} 


l 

l 


{pipe return codes ...} 
PipeOk = 0; 

PipeEmpty = -8; 

PipeNotOpen = -9? 

PipeFull = -10; 

PipeOpErr = -11; 

PipeNotThere = -12; 

PipeNoRoom = -13; 

PipeBadCmd = -14; 

PipesNotlnitted = -15; 

{an error code less than 


{successful return code} 1 

{tried to read an empty pipe} 

{pipe was not open for read or write} 

{tried to write to a full pipe} l 
{tried to open (for reading) an open pipe} 
{pipe does not exist} ' 

{the pipe data structures are full, and there 
is no room for new pipes at the moment...} 
{illegal command} 

{pipes not initialized} 

-127 is a fatal disk error} 


TYPE 

PNameStr = STRING[PnameLen]; 

PipeBlk = RECORD CASE integer OF 

1: (c: PACKED ARRAY [1..PblkLen] OF CHAR); 
2: (b: ARRAY [1..PblkLen] OF byte); 

END; 


VAR 



PipeCslot: 
PipePslot: 
PipeAslot: 
PipeDebug; 


INTEGER; {current slot for pipe 1/0} 
INTEGER? {primary (boot) slot number} 
INTEGER; {alternate slot number} 
BOOLEAN; 


FUNCTION pipestatus (VAR names,ptrs: PipeBlk); INTEGER? 


FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 


pipeoprd 

pipeopwr 

pipeclrd 

pipeclwr 

pipepurge 

piperead 

pipewrite 

pipesinit 


PROCEDURE CCpipeinit? 


(pname; PNameStr); INTEGER; 

(pname; PNameStr); INTEGER? 

(npipe; INTEGER); INTEGER; 

(npipe; INTEGER); INTEGER; 

(npipe; INTEGER); INTEGER; 

(npipe; INTEGER? VAR info; PipeBlk); INTEGER; 
(npipe,wlen; INTEGER; VAR info; PipeBlk); INTEGER; 
(baddr,bsize; INTEGER); INTEGER; 




CCprtIO Unit Interface 


'USES* 

r$U- CCLIB} CCdefn; 


CONST 

(O 


PRT = 6; 

{ baud rate codes 
BAUD300 - 0; 
BAUD600 = 1; 
BADD1200 = 2? 
BAUD2400 = 3? 
BAUD4800 = 4; 
BADD9600 = 5; 
BAUD19200 = 6; 


{ parity codes } 
PARDISABLED = 0; 
PARODD = 1; 
PAREVEN = 2; 
PARMARKXNR = 3 ; 
PARSPACEXNR = 4; 


{ unit # of /Printer } 


{ default } 


{ default } 


{ datacom codes } 

PORT1 = 0; 

PORT2 =1; { default } 


{ word size (charsize) codes } 

CHARSZ8 =0? { devault } 

CHARSZ7 = 1; 


0 { handshake codes } 
LINECTSINVERTED = 0 
LINECTSNORMAL = 1 
LINEDSRINVERTED = 2 
LINEfiSRNORMAL = 3 
LINEDCDINVERTED = 4 
LINEDCDNORMAL = 5 
XONXOFF = 6 

ENQACK = 7 


{ default } 


VAR PrtAvail: boolean; { printer available (assigned) } 


FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

PROCEDURE 


PrtStatus 

PrtFreeSpace 

PrtBaudRate 

PrtParity 

PrtDataCom 

PrtCharSize 

PrtHandShake 

CCprtlOinit; 


(var br,par,dc f chsz f hs: integer): 
(var freebytes: integer): 
(baudrate: integer): 

(parity: integer): 

(port: integer): 

(charsize: integer): 

(protocol: integer): 



integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 






CCsema4 Unit Interface 


U^ES 

{’$U CCLIB} CCdefn, 
{$U CCLIB} CCdrvIO; 


[ 'T 

^ Sema4version = 'n.n'; 


{ Return codes for the semaphore unit } 


SemWasSet = $80 
SemNotSet = $00 
SemFull = $FD 
SemDskErr = $FF 


{ the prior state of this semaphore was locked } 
{ prior state was unlocked } 

{ semaphore table is full (32 active semaphores) 
{ disk error during write ttiru } 


{ negative function return values indicate error conditions } 
{ 0 return means no error (and not set prior to operation) } 
{ $80 (128) return means key set prior to operation } 

TYPE 

SemStr - STRING[8]; 

SemKeys = PACKED ARRAY [1..8] OF CHAR; 

SemKeyList = RECORD CASE integer OF 

1: (skey: ARRAY [1..32] OF SemKeys); 

2; (sbyt; ARRAY [1..256] OF byte); 

END; 


FUNCTION SemLock (key; SemStr); INTEGER; 

FUNCTION SemUnlock (key; SemStr); INTEGER; 

FUNCTION SemClear: INTEGER; 

; # "CTION SemStatus (VAR kbuf: SemKeyList); INTEGER; 
r^CEDURE CCSema4Init; 



CCwfeSIO Unit Interface 


OSES 

'{$U CCLIB} CCdefn; 



GRAPHICS = 2; 
CURSORON = 4; 
INVCURSOR = 8; 
WRAPLINE = 16; 
SCROLLOFF = 32; 
CLEARPAGE = 64; 


attr2 flag values - add together } 


{ values of wn for WinSystem } 

CURRPROCWIN =1; { current process window } 
CMDWINDOW =2; { cmd/msg window } 
ROOTWINDOW =3; { root user window } 


FUNCTION WinSystem (wn: integer): 

FUNCTION WinSelect (var WR: WndRcd): 

FUNCTION WinDelete (var WR: WndRcd): 

FUNCTION WinCreate (var WR: WndRcd; homex,homey,width,length: 

flags: byte): 

FUNCTION WinClear (var WR: WndRcd): 

FUNCTION WinStatus (var homex,homey,width,length: integer): 
PROCEDURE CCwndlOinit; 


integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 





